home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / SCREEN / BOX.PAS next >
Pascal/Delphi Source File  |  1996-08-02  |  598b  |  20 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; simple box drawing
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBSCR;
  10.  
  11. var Box : BoxObjectType;
  12.  
  13. begin
  14.      Screen.Draw;
  15.      with Box do begin
  16.           InitializeBox (2, 4, 37, 20, ThinBorder);
  17.           InitializeBox (42, 4, 77, 20, SingleBorder);
  18.           Intercept;
  19.      end;
  20. end.